; * src/data.c (Ftype_of): Update comment.

diff --git a/src/data.c b/src/data.c
index 0c47750cb750bc8438a6b546eb888b35184c13d2..fd4b1fe4e4479884d11218f9af19577889afee38 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -211,7 +211,7 @@ for example, (type-of 1) returns `integer'.  */)
       return Qcons;
 
     case Lisp_Vectorlike:
-      /* WARNING!!  Keep 'cl--typeof-types' in sync with this code!!  */
+      /* WARNING!!  Keep 'cl--type-hierarchy' in sync with this code!!  */
       switch (PSEUDOVECTOR_TYPE (XVECTOR (object)))
         {
         case PVEC_NORMAL_VECTOR: return Qvector;